home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_34
/
scrolly.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
3KB
|
50 lines
10 REM ************************************************************************
100 REM ********** PUT MESSAGE INTO TWO STRINGS - TEXT$ AND TEXT2$ **********
110 VARNAME
120 VARNAME
130 VARNAME
140 VARNAME
150 UNKNOWN OP: 0x3A
160 REM ********** DRAW 8 COLOURED LINES AT THE TOP OF THE SCREEN **********
170 FOR
180 REM ********** COPY THEM INTO TEMP$ VARIABLE AND CREATE STRIPES **********
190 VARNAME
20 REM * *
200 FOR
210 SCREEN COPY
220 REM ********** "DUMB" COLOUR CYCLE WITH SHIFT COMMAND **********
230 SHIFT
240 UNKNOWN OP: 0x3A
250 REM ********** DEFINE SCROLL ZONE AND Y COORD FOR TEXT TO SIT **********
260 VARNAME
270 DEF
280 UNKNOWN OP: 0x3A
290 REM ********** START MAIN LOOP FOR SHUDDER TEXT PRINT **********
30 REM * STOS SPECIAL FX #2 - SIMPLE SCROLLY & SHUDDER DEMO *
300 FOR
310 LOCATE
320 UNKNOWN OP: 0x3A
330 REM ********** CREATE A SHUDDER EFFECT WITH SCROLL UP+SCROLL DOWN **********
340 BOOM
350 NEXT
360 WAIT
370 UNKNOWN OP: 0x3A
380 REM ********** SCROLL FIRST LOT OF TEXT OFF SCREEN RAPIDLY **********
390 FOR
40 REM * *
400 UNKNOWN OP: 0x3A
410 REM ********** SCROLL TEXT2$ MAIN LOOP **********
420 REPEAT
430 FOR
440 LOCATE
450 UNKNOWN OP: 0x3A
460 REM ********** PRINTS AT FAR RIGHT OF SCREEN AND SCROLLS LEFT **********
470 WAIT VBL
480 NEXT
490 UNTIL
50 REM * BY P.J.HICKMAN *
60 REM * *
70 REM ************************************************************************
80 KEY
90 UNKNOWN OP: 0x3A